function plotarc(ox,oy,or,onTheta,tanTheta,f)
if f == 1 
    if onTheta > tanTheta
        theta = linspace(onTheta,tanTheta,100);
    else
        theta = [linspace(onTheta,-pi,50),linspace(pi,tanTheta,50)];
    end
else
    if onTheta < tanTheta
        theta = linspace(onTheta,tanTheta,100);
    else
        theta = [linspace(onTheta,pi,50),linspace(-pi,tanTheta,50)];
    end
end

x = ox + cos(theta)*or;
y = oy + sin(theta)*or;
plot(x,y,'k','LineWidth',2)

end
